home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / lependu.txt < prev    next >
Text File  |  1994-03-01  |  1KB  |  19 lines
  1. 1 ' *** OISAC 2 *** LE PENDU ***
  2. 10 CLS:CLEAR:DIMN$(20):LOCATE13,0:PRINT"LE PENDU";:RESTORE5000:FORI=0TO19:READN$(I):NEXT:$=N$(INT(RAN#*20)):L=LEN($):ERASE N$:DIMN$(13):RESTORE6000:FORI=1TO11:READN$(I):NEXT
  3. 12 FORI=252TO255:DEFCHR$(I)="0000000000":NEXT:POKE0,253:POKE1,254:POKE32,252:POKE33,255:a$="0F31":b$="0101":c$="8181":d$="2141":e$="4121":FORI=1TOL:LOCATEI+6,1:PRINT"-";:NEXT:PRINT" :";CHR$(0);
  4. 15 LOCATEL+9,1:R$=INPUT$(1):P=0:FORI=0TOL+1:IFR$=MID$($,I+1,1)THENC=C+1:P=1:LOCATEI+7,1:PRINTR$;
  5. 20 NEXT:IFP=1THEN30ELSE E=E+1
  6. 25 ON E GOSUB 1000,1000,1000,1010,1015,1020,1020,1025,1030,1030,1035,1040
  7. 30 PRINTCHR$(0);:IFC=L THENLOCATEL+10,1:PRINT"GAGNE":GOTO10 ELSE15
  8. 35 GOTO15
  9. 1000 DEFCHR$(252)=a$+N$(E):RETURN
  10. 1010 DEFCHR$(253)=b$+"FF"+b$:RETURN
  11. 1015 DEFCHR$(253)=b$+"FF"+c$:RETURN
  12. 1020 DEFCHR$(254)=c$+N$(E)+b$:RETURN
  13. 1025 DEFCHR$(254)=N$(E):RETURN
  14. 1030 DEFCHR$(255)=d$+N$(E)+e$:RETURN
  15. 1035 DEFCHR$(255)=N$(E):RETURN
  16. 1040 LOCATE7,1:PRINT$": PERDU":GOTO10
  17. 5000 DATA EEPROM,OISAC,CASIO,ORDINATEUR,PERSONNEL,LEPENDU,MEMOIRE,WARGAMES,NEWYORK,ATARI,UTILISATEUR,EXTENTION,INTERFACE,JEUXVIDEO,EMULATEUR,CARACTERE,PROGRAMME,ALGORITHME,BASIC,MRBIGBUG
  18. 6000 DATA C10101,FF0101,FF310F,0,0,81,E1,819DF71D01,81,F1,2549F14925
  19.